home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
A-COMAL Series
/
(k)aaq.d64
/
e.dat
< prev
next >
Wrap
Text File
|
2007-02-28
|
2KB
|
130 lines
8000 FOR J:=1 TO 4 DO //E1
8010 PENUP
8020 FORWARD 2
8030 PENDOWN
8040 FORWARD 24
8050 PENUP
8060 BACK 26
8070 LEFT 90
8080 FORWARD 1
8090 RIGHT 90
8100 ENDFOR J
8110 //
8120 FOR J:=1 TO 2 DO // 2
8130 PENDOWN
8140 FORWARD 28
8150 PENUP
8160 BACK 28
8170 LEFT 90
8180 FORWARD 1
8190 RIGHT 90
8200 ENDFOR J
8210 //
8220 FOR J:=1 TO 2 DO // 3
8230 PENDOWN
8240 FORWARD 11
8250 PENUP
8260 FORWARD 11
8270 PENDOWN
8280 FORWARD 6
8290 PENUP
8300 BACK 28
8310 LEFT 90
8320 FORWARD 1
8330 RIGHT 90
8340 ENDFOR J
8350 //
8360 FOR J:=1 TO 8 DO // 4
8370 PENDOWN
8380 FORWARD 11
8390 PENUP
8400 BACK 11
8410 LEFT 90
8420 FORWARD 1
8430 RIGHT 90
8440 ENDFOR J
8450 //
8460 FOR J:=1 TO 6 DO // 5
8470 PENDOWN
8480 FORWARD 19
8490 PENUP
8500 BACK 19
8510 LEFT 90
8520 FORWARD 1
8530 RIGHT 90
8540 ENDFOR J
8550 //
8560 FOR J:=1 TO 2 DO // 5.5
8570 PENDOWN
8580 FORWARD 11
8590 PENUP
8600 BACK 11
8610 LEFT 90
8620 FORWARD 1
8630 RIGHT 90
8640 ENDFOR J
8650 //
8660 FOR J:=1 TO 6 DO // 6
8670 PENUP
8680 FORWARD 2
8690 PENDOWN
8700 FORWARD 9
8710 PENUP
8720 BACK 11
8730 LEFT 90
8740 FORWARD 1
8750 RIGHT 90
8760 ENDFOR J
8770 //
8780 FOR J:=1 TO 2 DO // 7
8790 PENUP
8800 FORWARD 2
8810 PENDOWN
8820 FORWARD 9
8830 PENUP
8840 FORWARD 11
8850 PENDOWN
8860 FORWARD 6
8870 PENUP
8880 BACK 28
8890 LEFT 90
8900 FORWARD 1
8910 RIGHT 90
8920 ENDFOR J
8930 //
8940 FOR J:=1 TO 2 DO // 8
8950 PENUP
8960 FORWARD 2
8970 PENDOWN
8980 FORWARD 26
8990 PENUP
9000 BACK 28
9010 LEFT 90
9020 FORWARD 1
9030 RIGHT 90
9040 ENDFOR J
9050 //
9060 FOR J:=1 TO 4 DO // 9
9070 PENUP
9080 FORWARD 4
9090 PENDOWN
9100 FORWARD 22
9110 PENUP
9120 BACK 26
9130 LEFT 90
9140 FORWARD 1
9150 RIGHT 90
9160 ENDFOR J
9170 //
9180 FOR J:=1 TO 2 DO // 10
9190 PENUP
9200 FORWARD 12
9210 PENDOWN
9220 FORWARD 6
9230 PENUP
9240 BACK 18
9250 LEFT 90
9260 FORWARD 1
9270 RIGHT 90
9280 ENDFOR J